home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Divers Computer Bench⁄Apple / Logiciels Apple (dpt AppleSoft) / Apple Media Tool / Apple Media Tool Démo / Exemples AMT / Travel / For Programmers / SOURCES / S7_SERVICES.k < prev    next >
Text File  |  1993-07-01  |  2KB  |  101 lines
  1. object S7_SERVICES is MEDIADISTRIBUTOR
  2. has
  3.     
  4.     OffScreen()
  5.         do
  6.             self.Enable(false);
  7.             self.Show(true);
  8.         end;
  9.     
  10. with
  11.     Enabled is false;
  12.     Running is false;
  13.     Duration is -1;
  14.     Shown is false;
  15.     X is 0; Y is 0; Width is 640; Height is 480;
  16.     Items is [
  17.         S7A1_S7_SERV,
  18.         S7A11_AUD_CLK_WAV,
  19.         S7A16_S7_SERVB
  20.     ];
  21. end;
  22.  
  23. object S7A1_S7_SERV is MEDIADELEGATOR
  24. has
  25.     
  26.     OffScreen()
  27.         do
  28.             self.Enable(false);
  29.             self.Show(true);
  30.         end;
  31.     
  32. with
  33.     Target is C29_S7_SERV;
  34.     Enabled is false;
  35.     Running is false;
  36.     Duration is -1;
  37.     Shown is false;
  38.     X is 0; Y is 0; Width is 640; Height is 480;
  39.     HotRegion is {
  40.         $01DF0002, $0000027F, $01E00000, $FFFFFFFF
  41.     };
  42. end;
  43.  
  44. object S7A11_AUD_CLK_WAV is MEDIADELEGATOR
  45. has
  46.     
  47.     OffScreen()
  48.         do
  49.             self.Enable(true);
  50.             self.Show(true);
  51.         end;
  52.     
  53.     MouseDown(theX, theY)
  54.         do
  55.             self.Run(true);
  56.             APPLICATION.GoBack(MEDIADISTRIBUTOR1);
  57.             TRANSITION.Set(WipeLeft, 30);
  58.         end;
  59.     
  60. with
  61.     Target is C126_AUD_CLK_WAV;
  62.     Enabled is false;
  63.     Running is false;
  64.     Duration is 0;
  65.     Shown is false;
  66.     X is 14; Y is 427; Width is 66; Height is 45;
  67. end;
  68.  
  69. object S7A16_S7_SERVB is MEDIADELEGATOR
  70. has
  71.     
  72.     OffScreen()
  73.         do
  74.             self.Enable(true);
  75.             self.Show(false);
  76.         end;
  77.     
  78.     MouseDown(theX, theY)
  79.         do
  80.             self.Show(true);
  81.         end;
  82.     
  83.     MouseUp(theX, theY)
  84.         do
  85.             S7A11_AUD_CLK_WAV.Run(true);
  86.             self.Show(false);
  87.             APPLICATION.Refresh();
  88.             TRANSITION.Set(WipeRight, 30);
  89.             APPLICATION.GoTo(S8_RENTAL_1);
  90.         end;
  91.     
  92. with
  93.     Target is C30_S7_SERVB;
  94.     Enabled is false;
  95.     Running is false;
  96.     Duration is -1;
  97.     Shown is false;
  98.     X is 18; Y is 179; Width is 225; Height is 40;
  99. end;
  100.  
  101.